<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
	Dim username : username = Trim(Request.Form("username"))
	Dim password : password = Trim(Request.Form("password"))
	Dim validata : validata = Trim(Request.Form("validata"))
	
	If lcase(username) = "admin" Then
		If password <> "SuuntoSports" Then
			Response.Write("0")
		Else
			Session("AdminName") = lcase(username)
			Response.Write("1")
		End If
	ElseIf lcase(username) = "sales" Then
		If password <> "SuuntoSales" Then
			Response.Write("0")
		Else
			Session("AdminName") = lcase(username)
			Response.Write("1")
		End If
	ElseIf lcase(username) = "service" Then
		If password <> "SuuntoService" Then
			Response.Write("0")
		Else
			Session("AdminName") = lcase(username)
			Response.Write("1")
		End If
	ElseIf cstr(lcase(Session("GetCode")))<>cstr(lcase(validata)) Then
		Response.Write("-1")
	Else
		Response.Write("0")
	End If
	
%>